home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / members.arc / MDMODFRM.PRG < prev    next >
Text File  |  1986-10-16  |  1KB  |  50 lines
  1. *----------------------------------------------------------------------
  2. * Program : Membership Database Package
  3. * File    : MDMODFRM
  4. * Function: Create/Modify Report Format Files
  5. * Author  : J. North        
  6. * Version : (AT contest)
  7. * Date    : 10/15/86
  8. *----------------------------------------------------------------------
  9. *
  10. call curson
  11. clear
  12. @  1,  1  to  5, 79    double
  13. @  3,  2  to  3, 78  
  14. @  2,  3  say "Enter Report File Name >>           .FRM"
  15. @  4,  4  say "Choose from the existing files below, or enter a new name to create one."
  16. @  6,  0  say ""
  17. dir *.frm
  18. fn="        "
  19. clear gets
  20. do while .T.
  21.     @ 2,29 get fn picture "!!!!!!!!"
  22.     read 
  23.     if len(trim(fn))=0
  24.         call cursoff
  25.         return
  26.     endif
  27.     ffn=trim(fn)+".FRM"
  28.     if file(ffn)    
  29.         exit
  30.     endif    
  31.     @ 2, 44 say "<< Create new file? (Y/N)"
  32.     set console off
  33.     clear typeahead
  34.     wait "" to yn
  35.     set console on
  36.     if upper(yn) = "Y"
  37.         exit
  38.     endif
  39.     fn="        "
  40.     @ 2, 44 say "                         "
  41. enddo
  42. select 1
  43. use members
  44. clear
  45. call curson
  46. modify report &fn
  47. call cursoff
  48. use
  49. return
  50.